home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8708a.d64 / ls 3 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  488b  |  29 lines
  1. 10 REM KURVE MIT GRAFIKZEICHEN
  2. 20 REM
  3. 30 PRINT"[147]"
  4. 40 REM Y-ACHSE
  5. 50 FOR X=1 TO 10
  6. 60 PRINT TAB(2)"[208]":PRINT TAB(2)"[170]"
  7. 70 NEXT X
  8. 80 REM X-ACHSE
  9. 85 PRINT"   ";
  10. 90 FOR X=1 TO 15
  11. 100 PRINT"[183][208]";
  12. 110 NEXT X
  13. 115 REM ZEICHEN IN VARIABLENFELD
  14. 120 DIM Z$(6)
  15. 130 Z$(0)="[175]":Z$(1)="[210]":Z$(2)="[198]":Z$(3)="[195]"
  16. 140 Z$(4)="[196]":Z$(5)="[197]":Z$(6)="[183]"
  17. 150 REM KURVE ZEICHNEN (SINUS)
  18. 160 FOR X=3 TO 33
  19. 165 Y=INT(60+SIN(X/4)*25):REM FUNKTION
  20. 166 IF Y>140 THEN Y=140
  21. 167 IF Y<0 THEN Y=0
  22. 170 Z=INT(Y/7)
  23. 180 PRINT""
  24. 190 FOR Q=1 TO 21-Z:PRINT:NEXT Q
  25. 200 V=Y-Z*7
  26. 210 PRINTTAB(X);Z$(V)
  27. 220 NEXT X
  28. 230 END
  29.